home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / town.prg / GAME (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  59 lines
  1. 1 POKE53281,0:POKE53282,0:PRINT CHR$(14):PRINT"[147]"
  2. 10 PRINT"[208]REPARE TO ENTER"
  3. 11 PRINT"[200][197][204][204][212][207][215][206]"
  4. 20 PRINT"CREATED WITH THE"
  5. 30 PRINT"[193][196][214][197][206][212][213][210][197][215][210][201][212][197][210][160][208][210][207][199][210][193][205] BY"
  6. 40 PRINT"[212][200][197] [195][207][196][197][215][210][201][212][197][210] [195][207][210][208][207][210][193][212][201][207][206]"
  7. 50 PRINT"[212]HIS GAME IS OFFERED TO THE PUBLIC"
  8. 60 PRINT"DOMAIN AND MAY BE COPIED AND GIVEN"
  9. 70 PRINT"TO ANYONE PROVIDED THAT NO CHANGES"
  10. 80 PRINT"ARE MADE AS TO EITHER THE GAME, OR"
  11. 90 PRINT"THE ACCOMPANYING SCREENS."
  12. 100 TI$="000000"
  13. 110 IFTI$<"000020"THEN 110
  14. 120 PRINT"[147]"
  15. 130 PRINT"[212]HIS GAME USES STANDARD TWO-WORD"
  16. 140 PRINT"COMMANDS. [212]HE INTERPRETER WILL ACT"
  17. 150 PRINT"ON THE FIRST TWO WORDS IT CAN FIND"
  18. 160 PRINT"IN THE VOCABULARY TABLE. [201]F AN ACT"
  19. 170 PRINT"CAN'T BE ACCOMPLISHED ONE WAY, TRY"
  20. 180 PRINT"A DIFFERENT COMBINATION."
  21. 190 PRINT"[217]OU CAN 'SAVE' AS MANY POSITIONS"
  22. 200 PRINT"AS YOU WISH TO A FORMATTED DISK..."
  23. 210 PRINT"YOU MUST FORMAT THE DISK SINCE THE"
  24. 220 PRINT"GAME DOES NOT HAVE THIS UTILITY."
  25. 221 PRINT"[212]O RESTORE A GAME - TYPE:'LOAD'"
  26. 222 PRINT"AND THEN THE 'FILENAME'"
  27. 230 PRINT"[201] DO MY OWN TESTING...[201] HOPE ALL"
  28. 240 PRINT"THE BUGS ARE GONE...IF YOU FIND AN"
  29. 250 PRINT"ERROR, LET ME KNOW ABOUT IT. [201] MAY"
  30. 260 PRINT"NOT BE ABLE TO FIX IT THIS TIME..."
  31. 270 PRINT"BUT IT WILL ALERT ME TO THINGS NOT"
  32. 280 PRINT"OTHERWISE CONSIDERED."
  33. 290 TI$="000000"
  34. 300 IFTI$<"000040"THEN 300
  35. 310 PRINT"[147]"
  36. 320 PRINT"[201]F YOU NEED MORE DOCUMENTATION FOR"
  37. 330 PRINT"THIS GAME, [201] CAN PROVIDE:"
  38. 340 PRINT"1) [214]OCABULARY LIST."
  39. 350 PRINT"2) [207]BJECT LIST."
  40. 360 PRINT"3) [200]INT LIST."
  41. 370 PRINT"4) [211]AMPLE SOLUTION."
  42. 390 PRINT"[211]END $1.50 TO COVER BOTH PRINTING"
  43. 400 PRINT"AND POSTAGE COSTS TO:"
  44. 410 PRINT"[215][201][204][204][201][193][205] [205][201][212][195][200][197][204][204]"
  45. 420 PRINT"15 [198][207][210][212][197] [193][214][197][206][213][197]"
  46. 430 PRINT"[205][197][196][198][207][210][196], [206][197][215][160][217][207][210][203]
  47. 440 [153]"(null)RIGHT$(null) LEN(null)STR$VAL 11763"
  48. 441 [153]"(null)OTE: STR$OCUMENTATION AVAILABLE"
  49. 442 [153]"AFTER(null)EPTEMBER 9, 1988"
  50. 450 TI$[178]"000000"
  51. 460 [139]TI$[179]"000040"[167]460
  52. 470 [153]"LOAD"
  53. 480 [153]"CHR$ATN(null)VALCLOSERIGHT$(null)CLOSE(null)(null)(null)CLOSE(null)(null)ATNSTR$RIGHT$(null)CHR$"
  54. 490 [153]"(null)OU PROBABLY WONDER WHY RIGHT$ SAID"
  55. 500 [153]"NOTHING ABOUT THE GAME...WELL,"
  56. 510 [153]"JUST...AND THEN...AND FINALLY,"
  57. 511 [153]"AND THAT'S ALL YOU HAVE TO DO!"
  58. 520 [147]"HELLTOWN",8,1
  59.